home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axcool / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-27  |  3.1 KB  |  102 lines
  1. VERSION 5.00
  2. Object = "{734B9C9D-68E5-11D2-BF5B-00A024982E5B}#45.0#0"; "axCool.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4095
  6.    ClientLeft      =   165
  7.    ClientTop       =   450
  8.    ClientWidth     =   7125
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4095
  11.    ScaleWidth      =   7125
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Command1"
  15.       Height          =   510
  16.       Left            =   1755
  17.       TabIndex        =   0
  18.       Top             =   1305
  19.       Width           =   1455
  20.    End
  21.    Begin axCoolbar.axCool axCool1 
  22.       Align           =   1  'Align Top
  23.       Height          =   405
  24.       Left            =   0
  25.       Top             =   0
  26.       Width           =   7125
  27.       _ExtentX        =   12568
  28.       _ExtentY        =   714
  29.       Count           =   5
  30.       List_11         =   "Form1.frx":0000
  31.       List_21         =   "New"
  32.       List_31         =   1
  33.       List_41         =   0
  34.       List_51         =   ""
  35.       List_61         =   "New"
  36.       List_71         =   1
  37.       List_81         =   1
  38.       List_12         =   "Form1.frx":0112
  39.       List_22         =   "Open"
  40.       List_32         =   1
  41.       List_42         =   0
  42.       List_52         =   ""
  43.       List_62         =   "Open"
  44.       List_72         =   1
  45.       List_82         =   0
  46.       List_13         =   "Form1.frx":0224
  47.       List_23         =   ""
  48.       List_33         =   1
  49.       List_43         =   2
  50.       List_53         =   ""
  51.       List_63         =   ""
  52.       List_73         =   1
  53.       List_83         =   0
  54.       List_14         =   "Form1.frx":0240
  55.       List_24         =   "Preview"
  56.       List_34         =   1
  57.       List_44         =   0
  58.       List_54         =   ""
  59.       List_64         =   "Preview"
  60.       List_74         =   1
  61.       List_84         =   0
  62.       List_15         =   "Form1.frx":0782
  63.       List_25         =   "Print"
  64.       List_35         =   1
  65.       List_45         =   0
  66.       List_55         =   ""
  67.       List_65         =   "Print"
  68.       List_75         =   1
  69.       List_85         =   1
  70.    End
  71.    Begin VB.Menu mnuDropDown 
  72.       Caption         =   "DropDown"
  73.       Visible         =   0   'False
  74.       Begin VB.Menu mnuDropItem 
  75.          Caption         =   "Item 1"
  76.          Index           =   1
  77.       End
  78.       Begin VB.Menu mnuDropItem 
  79.          Caption         =   "Item 2"
  80.          Index           =   2
  81.       End
  82.       Begin VB.Menu mnuDropItem 
  83.          Caption         =   "Item 3"
  84.          Index           =   3
  85.       End
  86.    End
  87. Attribute VB_Name = "Form1"
  88. Attribute VB_GlobalNameSpace = False
  89. Attribute VB_Creatable = False
  90. Attribute VB_PredeclaredId = True
  91. Attribute VB_Exposed = False
  92. Private Sub axCool1_Click(Index As Integer)
  93.   MsgBox "click " + Str(Index)
  94. End Sub
  95. Private Sub axCool1_DropDownClick(Index As Integer)
  96.   PopupMenu mnuDropDown, 0, axCool1.Left + axCool1.Item(Index).Left, axCool1.Top + axCool1.Height - 30
  97. End Sub
  98. Private Sub Command1_Click()
  99.   axCool1.Item(4).Enabled = False
  100.   axCool1.UpdateButtons
  101. End Sub
  102.